perm filename NUMY.F4[RK,LCS] blob sn#234299 filedate 1976-09-01 generic text, type T, neo UTF8
00100		DIMENSION A(10)
00200		DATA A/36.,76.,1.,90.,7.,13.,3.,9.,48.,53./
00300		Z=0
00400		DO 22 K=1,10
00500		Z=Z+A(K)
00600	22	TYPE 7,Z
00910	7	FORMAT(F)
01000	6	STOP
01100		END